home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / games / m-z / ufoaga3.dms / ufoaga3.adf / Install UFO < prev    next >
Text File  |  1994-08-15  |  8KB  |  433 lines
  1. ;$VER: Install UFO 1.0 (10-05-1994)
  2. ;UFO Hard Drive Installation Script
  3.  
  4. (complete 0)
  5.  
  6. ;=============================================================================
  7.  
  8. (set #ask-UFO-dir-ENG
  9.     (cat
  10.         "In which disk or drawer should a drawer \"UFO\" "
  11.         "be created where all files will be copied?"
  12.     )
  13. )
  14.  
  15. (set #ask-UFO-dir-help-ENG
  16.     (cat
  17.         "Here you specify, where you want to install UFO "
  18.         "and all support files. A drawer \"UFO\" will "
  19.         "be created, so you select \"DH0:\" to install UFO "
  20.         "in a drawer \"DH0:UFO\".\n\n"
  21.     )
  22. )
  23.  
  24. (set #ask-UFO-bool-1200-ENG
  25.     "\nWill you be running UFO from hard disk\non a 2 meg A1200?"
  26. )
  27.  
  28. (set #ask-UFO-mesg-1200-ENG
  29.     (cat
  30.         "\n"
  31.         "Although UFO can be run from your hard disk, "
  32.         "it will need to be intially booted from floppy disk "
  33.         "so that the maximum amount of memory will be available."
  34.         "\n\n"
  35.         "This installation will create a boot disk for you."
  36.     )
  37. )
  38.  
  39. (set #ask-UFO-mesg-insert-ENG
  40.     (cat
  41.         "\n"
  42.         "Please insert a floppy disk to be formatted\ninto drive DF0:"
  43.     )
  44. )
  45.  
  46. (set #ask-UFO-working-formatting-ENG
  47.     (cat
  48.         "\n"
  49.         "Formatting disk in drive DF0:\nPlease wait...."
  50.     )
  51. )
  52.  
  53. (set #ask-UFO-copying-ENG
  54.     (cat
  55.         "\n"
  56.         "Copying UFO files...."
  57.     )
  58. )
  59.  
  60. ;=============================================================================
  61.  
  62. (set #ask-UFO-dir-FRE
  63.     (cat
  64.         "Dans quel disque ou tiroir devrait être créé UFO?  Tous les fichiers "
  65.         "seront copiés à cet endroit."
  66.     )
  67. )
  68.  
  69. (set #ask-UFO-dir-help-FRE
  70.     (cat
  71.         "Veuillez spécifier la destination pour l'installation d'UFO et des "
  72.         "fichiers de soutien.  Un tiroir intitulé UFO sera créé.\n\n"
  73.     )
  74. )
  75.  
  76. (set #ask-UFO-bool-1200-FRE
  77.     (cat
  78.         "\n"
  79.         "Allez-vous lancer UFO à partir du disque\ndur d'un A1200 de 2 Mo?"
  80.     )
  81. )
  82.  
  83. (set #ask-UFO-mesg-1200-FRE
  84.     (cat
  85.         "\n"
  86.         "Bien qu'UFO puisse être lancé à partir du disque dur, vous devrez "
  87.         "initialement le booter à partir d'une disquette pour permettre une "
  88.         "utilisation maximum de la mémoire.\n\n"
  89.         "Cette installation créera une disquette de boot pour vous."
  90.     )
  91. )
  92.  
  93. (set #ask-UFO-mesg-insert-FRE
  94.     (cat
  95.         "\n"
  96.         "Veuillez insérer une disquette à formater dans le lecteur DF0:"
  97.     )
  98. )
  99.  
  100. (set #ask-UFO-working-formatting-FRE
  101.     (cat
  102.         "\n"
  103.         "Formatage de la disquette se trouvant dans le lecteur DF0:\nVeuillez patienter...."
  104.     )
  105. )
  106.  
  107. (set #ask-UFO-copying-FRE
  108.     (cat
  109.         "\n"
  110.         "Copie des fichiers d'UFO..."
  111.     )
  112. )
  113.  
  114. ;=============================================================================
  115.  
  116. (set #ask-UFO-dir-GER
  117.     (cat
  118.         "In welchem Laufwerk oder welcher Schublade soll UFO installiert "
  119.         "werden?  Dorthin werden alle Dateien übertragen."
  120.     )
  121. )
  122.  
  123. (set #ask-UFO-dir-help-GER
  124.     (cat
  125.         "Bitte angeben, wo UFO und Zusatzdateien installiert werden sollen.  Eine "
  126.         "Schublade namens UFO wird dann erstellt.\n\n"
  127.     )
  128. )
  129.  
  130. (set #ask-UFO-bool-1200-GER
  131.     (cat
  132.         "\n"
  133.         "Wollen Sie UFO von der Festplatte eines\nA1200 mit 2 MB betreiben?"
  134.     )
  135. )
  136.  
  137. (set #ask-UFO-mesg-1200-GER
  138.     (cat
  139.         "\n"
  140.         "UFO kann zwar von der Festplatte betrieben werden, muß aber zunächst "
  141.         "von einer Diskette gebootet werden, um maximale Speichernutzung zu "
  142.         "gewährleisten.  Diese Installation erstellt eine Bootdiskette für Sie."
  143.     )
  144. )
  145.  
  146. (set #ask-UFO-mesg-insert-GER
  147.     (cat
  148.         "\n"
  149.         "Bitte eine Diskette zur Formatierung in Laufwerk DF0: einlegen."
  150.     )
  151. )
  152.  
  153. (set #ask-UFO-working-formatting-GER
  154.     (cat
  155.         "\n"
  156.         "Diskette in Laufwerk DF0: wird formatiert.\nBitte warten..."
  157.     )
  158. )
  159.  
  160. (set #ask-UFO-copying-GER
  161.     (cat
  162.         "\n"
  163.         "UFO-Dateien werden kopiert..."
  164.     )
  165. )
  166.  
  167. ;=============================================================================
  168. ;=============================================================================
  169. ;=============================================================================
  170.  
  171. ;Ask for destination drawer or partition for UFO
  172.  
  173. (set language
  174.     (askchoice
  175.         (prompt "")
  176.         (help
  177.             @askchoice-help
  178.         )
  179.         (choices "English" "Français" "Deutsch")
  180.     )
  181. )
  182.  
  183. (if (= language 0)
  184.     (
  185.         (set #ask-UFO-dir #ask-UFO-dir-ENG)
  186.         (set #ask-UFO-dir-help #ask-UFO-dir-help-ENG)
  187.         (set #ask-UFO-bool-1200 #ask-UFO-bool-1200-ENG)
  188.         (set #ask-UFO-mesg-1200 #ask-UFO-mesg-1200-ENG)
  189.         (set #ask-UFO-mesg-insert #ask-UFO-mesg-insert-ENG)
  190.         (set #ask-UFO-working-formatting #ask-UFO-working-formatting-ENG)
  191.         (set #ask-UFO-copying #ask-UFO-copying-ENG)
  192.         (set #ask-UFO-diskfull #ask-UFO-diskfull-ENG)
  193.     )
  194. )
  195. (if (= language 1)
  196.     (
  197.         (set #ask-UFO-dir #ask-UFO-dir-FRE)
  198.         (set #ask-UFO-dir-help #ask-UFO-dir-help-FRE)
  199.         (set #ask-UFO-bool-1200 #ask-UFO-bool-1200-FRE)
  200.         (set #ask-UFO-mesg-1200 #ask-UFO-mesg-1200-FRE)
  201.         (set #ask-UFO-mesg-insert #ask-UFO-mesg-insert-FRE)
  202.         (set #ask-UFO-working-formatting #ask-UFO-working-formatting-FRE)
  203.         (set #ask-UFO-copying #ask-UFO-copying-FRE)
  204.         (set #ask-UFO-diskfull #ask-UFO-diskfull-FRE)
  205.     )
  206. )
  207. (if (= language 2)
  208.     (
  209.         (set #ask-UFO-dir #ask-UFO-dir-GER)
  210.         (set #ask-UFO-dir-help #ask-UFO-dir-help-GER)
  211.         (set #ask-UFO-bool-1200 #ask-UFO-bool-1200-GER)
  212.         (set #ask-UFO-mesg-1200 #ask-UFO-mesg-1200-GER)
  213.         (set #ask-UFO-mesg-insert #ask-UFO-mesg-insert-GER)
  214.         (set #ask-UFO-working-formatting #ask-UFO-working-formatting-GER)
  215.         (set #ask-UFO-copying #ask-UFO-copying-GER)
  216.         (set #ask-UFO-diskfull #ask-UFO-diskfull-GER)
  217.     )
  218. )
  219.  
  220. (set UFO_dest
  221.     (tackon
  222.         (askdir
  223.             (prompt #ask-UFO-dir)
  224.             (help
  225.                 #ask-UFO-dir-help
  226.                 @askdir-help
  227.             )
  228.             (default "Work:")
  229.         )
  230.         "UFO"
  231.     )
  232. )
  233. (set @default-dest UFO_dest)
  234. (complete 10)
  235.  
  236.  
  237.  
  238.  
  239. (if
  240.     (askbool
  241.         (prompt #ask-UFO-bool-1200)
  242.         (help @askbool-help )
  243.     )
  244.     (
  245.         (message #ask-UFO-mesg-1200)
  246.  
  247.         (copyfiles
  248.             (source "UFO Disk 3:")
  249.             (dest "ram:")
  250.             (pattern "CR")
  251.             (nogauge)
  252.             (help @copyfiles-help)
  253.         )
  254.  
  255.         (message #ask-UFO-mesg-insert)
  256.         (working #ask-UFO-working-formatting)
  257.         (while
  258.             (run "sys:system/format <ram:CR drive df0: name UFO_Boot_Disk noicons ffs")
  259.             (
  260.                 (message #ask-UFO-mesg-insert)
  261.                 (working #ask-UFO-working-formatting)
  262.             )
  263.         )
  264.         (run "c:install df0: ffs")
  265.         (copyfiles
  266.             (source "UFO Disk 1:c")
  267.             (dest "ram:temp")
  268.             (nogauge)
  269.             (all)
  270.             (help @copyfiles-help)
  271.         )
  272.         (copyfiles
  273.             (source "ram:temp")
  274.             (dest "UFO_Boot_Disk:c")
  275.             (nogauge)
  276.             (all)
  277.             (help @copyfiles-help)
  278.         )
  279.         (makedir "UFO_Boot_Disk:s")
  280.         (textfile
  281.             (dest "UFO_Boot_Disk:s/startup-sequence")
  282.             (append
  283.                 (cat "Assign >NIL: <NIL: T: Ram:\n"
  284.                      "Assign >NIL: <NIL: LOCALE: " UFO_Dest "\n"
  285.                      "Assign >NIL: <NIL: Libs: " UFO_Dest "/libs\n"
  286.                      "Assign >NIL: <NIL: Fonts: " UFO_Dest "/fonts\n"
  287.                      "Assign >NIL: <NIL: ENV: Ram:\n"
  288.                      "Assign >NIL: <NIL: UfoTemp: Ram:\n"
  289.                      "SetPatch >NIL: <NIL: Quiet\n"
  290.                      "Cd >NIL: <NIL: " UFO_Dest "\n"
  291.                      "Execute >NIL: <NIL: " UFO_Dest "/UFO\n"
  292.                 )
  293.             )
  294.         )
  295.     )
  296. )
  297.  
  298.  
  299.  
  300. (working #ask-UFO-copying)
  301.  
  302. (makedir UFO_dest
  303.     (infos)
  304. )
  305.  
  306. (complete 20)
  307.  
  308.  
  309.  
  310. ;Copy all the program files from disk 1 to dest
  311.  
  312. (copyfiles
  313.     (source "UFO Disk 3:")
  314.     (dest UFO_dest)
  315.     (pattern "~((Install)#?)")
  316.     (infos)
  317.     (help @copyfiles-help)
  318. )
  319.  
  320. (complete 40)
  321.  
  322.  
  323.  
  324. ;Copy all the program files from disk 2 to dest
  325.  
  326. (copyfiles
  327.     (source "UFO Disk 4:")
  328.     (dest UFO_dest)
  329.     (pattern "~((Install)#?)")
  330.     (infos)
  331.     (help @copyfiles-help)
  332. )
  333.  
  334. (complete 60)
  335.  
  336.  
  337.  
  338. ;Copy all the program files from disk 3 to dest
  339.  
  340. (copyfiles
  341.     (source "UFO Disk 2:")
  342.     (dest UFO_dest)
  343.     (pattern "~((Install)#?)")
  344.     (infos)
  345.     (help @copyfiles-help)
  346. )
  347.  
  348. (complete 80)
  349.  
  350.  
  351.  
  352. ;Copy all the program files from disk 4 to dest
  353.  
  354. (copyfiles
  355.     (source "UFO Disk 1:")
  356.     (dest UFO_dest)
  357.     (pattern "~((Install)#?)")
  358.     (infos)
  359.     (help @copyfiles-help)
  360. )
  361.  
  362. (complete 90)
  363.  
  364.  
  365.  
  366. (delete (cat UFO_dest "/UFO")
  367.     (help @delete-help)
  368. )
  369. (rename (cat UFO_dest "/UFO_HD") (cat UFO_dest "/UFO")
  370.     (help @rename-help)
  371. )
  372. (rename (cat UFO_dest "/UFO.inf") (cat UFO_dest "/UFO.info")
  373.     (help @rename-help)
  374. )
  375. (protect (cat UFO_dest "/UFO") "+s")
  376.  
  377. (complete 91)
  378.  
  379.  
  380. (makedir (cat UFO_dest "/MissDat") )
  381.  
  382. (complete 92)
  383.  
  384.  
  385.  
  386. (makedir (cat UFO_dest "/Game_2") )
  387. (copyfiles
  388.     (source (cat UFO_dest "/Game_1") )
  389.     (dest (cat UFO_dest "/Game_2") )
  390.     (nogauge)
  391.     (all)
  392.     (help @copyfiles-help)
  393. )
  394.  
  395. (complete 93)
  396.  
  397. (makedir (cat UFO_dest "/Game_3") )
  398. (copyfiles
  399.     (source (cat UFO_dest "/Game_1") )
  400.     (dest (cat UFO_dest "/Game_3") )
  401.     (nogauge)
  402.     (all)
  403.     (help @copyfiles-help)
  404. )
  405.  
  406. (complete 95)
  407.  
  408. (makedir (cat UFO_dest "/Game_4") )
  409. (copyfiles
  410.     (source (cat UFO_dest "/Game_1") )
  411.     (dest (cat UFO_dest "/Game_4") )
  412.     (nogauge)
  413.     (all)
  414.     (help @copyfiles-help)
  415. )
  416.  
  417. (complete 97)
  418.  
  419. (makedir (cat UFO_dest "/Game_5") )
  420. (copyfiles
  421.     (source (cat UFO_dest "/Game_1") )
  422.     (dest (cat UFO_dest "/Game_5") )
  423.     (nogauge)
  424.     (all)
  425.     (help @copyfiles-help)
  426. )
  427.  
  428. (complete 100)
  429.  
  430.  
  431.  
  432. (exit)
  433.